Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/rdblib/rbprobrp.frm

Visual Basic Form | 1995-05-02 | 13.9 KB | 424 lines

VERSION 2.00
Begin Form RBProbRpt
   BackColor       =   &H00FFFFFF&
   Caption         =   "Problem Report Form"
   ClientHeight    =   4020
   ClientLeft      =   1095
   ClientTop       =   1485
   ClientWidth     =   7365
   Height          =   4425
   HelpContextID   =   24
   Icon            =   RBPROBRP.FRX:0000
   Left            =   1035
   LinkTopic       =   "Form1"
   ScaleHeight     =   4020
   ScaleWidth      =   7365
   Top             =   1140
   Width           =   7485
   Begin CommonDialog CMDialog1
      Left            =   9060
      Top             =   6120
   End
   Begin TextBox TxSystem
      BackColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   1920
      TabIndex        =   28
      Tag             =   "Enter the name of the system that had the problem"
      Top             =   1320
      Width           =   3135
   End
   Begin TextBox TxVer
      BackColor       =   &H00FFFFFF&
      Height          =   315
      Left            =   6600
      TabIndex        =   27
      Tag             =   "Enter the version number of the system you are using"
      Top             =   1320
      Width           =   2835
   End
   Begin SSCommand BtnSelPrtr
      Caption         =   "Select Printer"
      Font3D          =   0  'None
      Height          =   315
      Left            =   540
      TabIndex        =   26
      Top             =   6180
      Width           =   2850
   End
   Begin Frame Frame3
      Caption         =   "Describe the function being performed, the actions leading up to the error and the problem that occurred"
      Height          =   2415
      Left            =   120
      TabIndex        =   25
      Top             =   3720
      Width           =   9375
      Begin TextBox TxtProblem
         Height          =   2115
         Left            =   60
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   13
         Tag             =   "Enter the description of the problem and the actions leading up to the problem"
         Top             =   240
         Width           =   9255
      End
   End
   Begin Frame Frame2
      Caption         =   "Effect Of Problem"
      Height          =   915
      Left            =   120
      TabIndex        =   24
      Top             =   2760
      Width           =   9375
      Begin TextBox Text1
         BackColor       =   &H00FFFFFF&
         Height          =   315
         Index           =   4
         Left            =   2400
         TabIndex        =   12
         Tag             =   "Enter the description of the other effect of this problem"
         Top             =   540
         Width           =   6855
      End
      Begin CheckBox Check1
         Caption         =   "Other (Please Specify)"
         Height          =   375
         Index           =   4
         Left            =   120
         TabIndex        =   11
         Tag             =   "Check this box if there is some other effect with this problem"
         Top             =   480
         Width           =   2295
      End
      Begin CheckBox Check1
         Caption         =   "Can Use System, But Functionality Is Limited"
         Height          =   225
         Index           =   3
         Left            =   4500
         TabIndex        =   10
         Tag             =   "Check this box if you can use the system, but the functionality of the system is limited because of this problem"
         Top             =   240
         Width           =   4575
      End
      Begin CheckBox Check1
         Caption         =   "Can't use this function"
         Height          =   225
         Index           =   2
         Left            =   2040
         TabIndex        =   9
         Tag             =   "Check this box if you can't use this function because of the problem"
         Top             =   240
         Width           =   2295
      End
      Begin CheckBox Check1
         Caption         =   "Can't Use System"
         Height          =   225
         Index           =   1
         Left            =   120
         TabIndex        =   8
         Tag             =   "Check this box if you can't use the system because of this problem"
         Top             =   240
         Width           =   1875
      End
   End
   Begin Frame Frame1
      Caption         =   "Type of Problem"
      Height          =   915
      Left            =   120
      TabIndex        =   23
      Top             =   1800
      Width           =   9375
      Begin CheckBox Check1
         Caption         =   "Problem is Repeatable (Consistent)"
         Height          =   255
         Index           =   0
         Left            =   5880
         TabIndex        =   5
         Tag             =   "Check this box if the problem is repeatable (occurs consistently)"
         Top             =   240
         Width           =   3375
      End
      Begin TextBox Text1
         BackColor       =   &H00FFFFFF&
         Height          =   285
         Index           =   3
         Left            =   2400
         TabIndex        =   7
         Tag             =   "Enter the description of the type of problem"
         Top             =   510
         Width           =   6855
      End
      Begin OptionButton Option1
         Caption         =   "Other (Please Specify)"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   6
         Tag             =   "Select this option if some other type of problem occurred"
         Top             =   480
         Width           =   2295
      End
      Begin OptionButton Option1
         Caption         =   "System Didn't Work As Expected"
         Height          =   255
         Index           =   1
         Left            =   2700
         TabIndex        =   4
         Tag             =   "Select this option if the system didn't work as expected"
         Top             =   240
         Width           =   3195
      End
      Begin OptionButton Option1
         Caption         =   "System Ended Abnormally"
         Height          =   195
         Index           =   0
         Left            =   120
         TabIndex        =   3
         Tag             =   "Select this option if the system terminated abnormally"
         Top             =   240
         Width           =   2535
      End
   End
   Begin SSPanel cmsg
      Align           =   2  'Align Bottom
      Alignment       =   1  'Left Justify - MIDDLE
      BackColor       =   &H00C0C0C0&
      BevelInner      =   1  'Inset
      FloodShowPct    =   0   'False
      Font3D          =   0  'None
      ForeColor       =   &H00FF0000&
      Height          =   315
      Left            =   0
      TabIndex        =   20
      Top             =   3705
      Width           =   7365
   End
   Begin SSCommand BtnCancel
      Caption         =   "Exit"
      Font3D          =   0  'None
      Height          =   315
      Left            =   6180
      TabIndex        =   15
      Top             =   6180
      Width           =   2850
   End
   Begin SSCommand BtnPrint
      Caption         =   "Print Problem Report"
      Font3D          =   0  'None
      Height          =   315
      Left            =   3360
      TabIndex        =   14
      Top             =   6180
      Width           =   2850
   End
   Begin SSPanel Panel3D1
      Align           =   1  'Align Top
      BackColor       =   &H00FFFFFF&
      Caption         =   "Problem Report Form"
      Font3D          =   1  'Raised w/light shading
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   18
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FF0000&
      Height          =   435
      Left            =   0
      TabIndex        =   21
      Top             =   0
      Width           =   7365
   End
   Begin TextBox Text1
      BackColor       =   &H00FFFFFF&
      Height          =   315
      Index           =   2
      Left            =   6600
      TabIndex        =   2
      Tag             =   "Enter the name of the contact person"
      Top             =   960
      Width           =   2835
   End
   Begin TextBox Text1
      BackColor       =   &H00FFFFFF&
      Height          =   315
      Index           =   1
      Left            =   1920
      TabIndex        =   1
      Tag             =   "Enter the name of your organization"
      Top             =   960
      Width           =   3135
   End
   Begin TextBox Text1
      BackColor       =   &H00FFFFFF&
      Height          =   315
      Index           =   0
      Left            =   1920
      TabIndex        =   0
      Tag             =   "Enter the name of the person who is reporting the problem"
      Top             =   540
      Width           =   4575
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "System..................."
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   5
      Left            =   120
      TabIndex        =   30
      Top             =   1440
      Width           =   1755
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Version..........."
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   3
      Left            =   5160
      TabIndex        =   29
      Top             =   1380
      Width           =   1305
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "On"
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   4
      Left            =   6600
      TabIndex        =   22
      Top             =   600
      Width           =   255
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Problem Reported By"
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   2
      Left            =   60
      TabIndex        =   19
      Top             =   600
      Width           =   1800
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Contact Person"
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   1
      Left            =   5160
      TabIndex        =   18
      Top             =   1020
      Width           =   1320
   End
   Begin Label Label1
      AutoSize        =   -1  'True
      BackColor       =   &H00FFFFFF&
      Caption         =   "Organization............"
      ForeColor       =   &H00000000&
      Height          =   195
      Index           =   0
      Left            =   60
      TabIndex        =   17
      Top             =   1080
      Width           =   1800
   End
   Begin Label RBDateTime
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Date - Time"
      Height          =   315
      Left            =   6960
      TabIndex        =   16
      Top             =   540
      Width           =   2535
   End
Dim RB_Svframeheight As Integer
Dim RB_Svtextheight As Integer
Sub BtnCancel_Click ()
    Unload RBProbRpt
End Sub
Sub BtnPrint_Click ()
    mousepointer = HOURGLASS
    BtnPrint.Visible = False
    BtnCancel.Visible = False
    BtnSelPrtr.Visible = False
    cmsg.Visible = False
    RB_Svframeheight = Frame3.Height
    RB_Svtextheight = TxtProblem.Height
    Frame3.Height = cmsg.Top - Frame3.Top - 100
    TxtProblem.Height = Frame3.Height - 300
    RBProbRpt.Refresh
    junk = DoEvents()
    mousepointer = HOURGLASS
    RBProbRpt.PrintForm
    mousepointer = HOURGLASS
    RBScrn.Show MODAL
    RBErrFrm.WindowState = NORMAL
    RBProbRpt.WindowState = MAXIMIZED
    RBProbRpt.Visible = True
    Frame3.Height = RB_Svframeheight
    TxtProblem.Height = RB_Svtextheight
    BtnPrint.Visible = True
    BtnCancel.Visible = True
    BtnSelPrtr.Visible = True
    cmsg.Visible = True
    BtnCancel.SetFocus
    RBProbRpt.Refresh
    mousepointer = DEFAULT
End Sub
Sub BtnSelPrtr_Click ()
    CmDialog1.DialogTitle = "Problem Report Printer Setup"
    CmDialog1.PrinterDefault = True
    CmDialog1.Flags = PD_PRINTSETUP
    CmDialog1.Action = 5
End Sub
Sub Check1_GotFocus (Index As Integer)
    cmsg.Caption = Check1(Index).Tag
End Sub
Sub Check1_LostFocus (Index As Integer)
    cmsg.Caption = ""
End Sub
Sub Form_Load ()
    RBDateTime.Caption = Format$(Now, "MM/DD/YY - HH:MM:SS")
    On Error Resume Next
    txsystem.Text = rb_systemname
    txver.Text = rb_version
    On Error GoTo 0
End Sub
Sub Option1_GotFocus (Index As Integer)
    cmsg.Caption = Option1(Index).Tag
End Sub
Sub Option1_LostFocus (Index As Integer)
    cmsg.Caption = ""
End Sub
Sub Text1_GotFocus (Index As Integer)
    Text1(Index).BackColor = BLUE
    Text1(Index).ForeColor = WHITE
    cmsg.Caption = Text1(Index).Tag
End Sub
Sub Text1_LostFocus (Index As Integer)
    Text1(Index).BackColor = WHITE
    Text1(Index).ForeColor = BLACK
    cmsg.Caption = ""
End Sub
Sub TxtProblem_GotFocus ()
    TxtProblem.BackColor = BLUE
    TxtProblem.ForeColor = WHITE
    cmsg.Caption = TxtProblem.Tag
End Sub
Sub TxtProblem_LostFocus ()
    TxtProblem.BackColor = WHITE
    TxtProblem.ForeColor = BLACK
    cmsg.Caption = ""
End Sub